home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m4.d64 / forest walk.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  225 lines

  1. 10 POKE53280,1:POKE53281,1:PRINT"[147][144]":PRINTTAB(15)"HIKE":GOTO20:      BY W.I.M.
  2. 20 PRINT:PRINT:PRINT"HELLO THERE! YOU ARE ABOUT TO GO"
  3. 21 PRINT" FOR A WALK IN THE  FOREST EQUIPPED"
  4. 25 PRINT"  WITH YOUR TRUSTY RIFLE & SOME"
  5. 30 PRINT"   BOLOGNA SANDWICHES."
  6. 35 PRINT:PRINT"TO COMPLETE YOUR HIKE YOU MUST CHOSE"
  7. 36 PRINT" THE CORRECT COURSE OF ACTION FOR EACH"
  8. 37 PRINT"  ANIMAL (THING) THAT CROSSES YOUR PATH"
  9. 38 PRINT"   AND GO 20 MILES TO WIN. YOU CAN"
  10. 39 PRINT"    ONLY MAKE 3 MISTAKES."
  11. 40 PRINT:PRINT"THE WOODS ARE DARK AND VISION IS"
  12. 41 PRINT" POOR, MAKE YOUR SELECTION WITH CARE"
  13. 42 PRINT"  GOOD LUCK (YOU'LL NEED IT) HAVE A        GOOD TIME....."
  14. 85 PRINT:INPUT"PLEASE ENTER YOUR NAME ";NA$
  15. 89 MI=0:M=0
  16. 90 PRINT"[147]WHAT A PEACEFUL DAY....EXCEPT"
  17. 91 PRINT" FOR THAT TWIG THAT JUST SNAPPED!"
  18. 92 PRINT"  THERE'S AN ANIMAL. DO YOU WANT TO..."
  19. 95 PRINT"   (1)SHOOT IT?":PRINT"    (2)PET IT?":PRINT"     (3)FEED IT?"
  20. 100 PRINT
  21. 120 GET C$
  22. 121 IF C$="1"OR C$="2" THEN 130
  23. 122 IF C$<>"3" THEN120
  24. 130 R=1+(INT(20*RND(TI*10000)))
  25. 190 IF R>10THEN GOTO210
  26. 200 ON R GOTO 270,430,540,660,770,890,1020,1100,1200,1300
  27. 210 ON R-10 GOTO 1400,1500,1600,1700,1800,1900,2000,2100,2200,2300
  28. 270 REM*LION*
  29. 290 IF C$<>"1"THEN340
  30. 300 PRINT"HURRY!! YOU JUST SHOT A LION!"
  31. 305 PRINT" A NEW RUG FOR THE DEN....."
  32. 310 PRINT"  FINISH YOUR WALK & HAVE A GOOD TIME":GOTO10300
  33. 340 IFC$<>"2"THEN380
  34. 350 PRINT"LIONS DON'T TAKE KINDLY TO BEING PETTED."
  35. 360 PRINT"[145] HOPE YOU HAD LIFE INSURANCE....":GOTO10700
  36. 380 PRINT"YOU JUST FED A LION. HOWEVER, HE ALSO"
  37. 390 PRINT" MADE A MEAL OUT OF YOU. BYE,BYE...":GOTO10700
  38. 430 IF C$<>"1"THEN470
  39. 440 PRINT"YOU JERK - YOU JUST SHOT A HORSE."
  40. 450 PRINT" TURN YOURSELF IN TO THE RANGER.":GOTO10700
  41. 470 IF C$<>"2"THEN510
  42. 480 PRINT"YOU JUST PETTED A HORSE. YOU GOT OFF"
  43. 490 PRINT" EASY THIS TIME....CONTINUE YOUR WALK.":GOTO10300
  44. 510 PRINT"THE HORSE YOU JUST FED IS APPRECIATIVE"
  45. 520 PRINT" AND WILL TAKE YOU FOR A RIDE....":GOTO10300
  46. 540 REM*RANGER*
  47. 560 IFC$<>"1"THEN600
  48. 570 PRINT"YOU JUST SHOT THE PARK RANGER."
  49. 580 PRINT" BETTER HEAD FOR THE BORDER!":GOTO10700
  50. 600 IF C$<>"2"THEN630
  51. 610 PRINT"YOU PETTED THE RANGER."
  52. 615 PRINT" HE THINKS YOUR WEIRD!!!":GOTO10300
  53. 630 PRINT"YOU JUST SHARED YOUR BOLOGNA SANDWICHES"
  54. 640 PRINT" WITH THE RANGER. WHAT A GOOD SAMARITAN.":GOTO10300
  55. 660 REM*DEER*
  56. 680 IFC$<>"1"THEN710
  57. 690 PRINT"YOU JUST SHOT A DEER. THEY'ER OUT OF"
  58. 691 PRINT" SEASON YOU KNOW. GET OUT QUICK...":GOTO10700
  59. 710 IFC$<>"2"THEN750
  60. 720 PRINT"YOU JUST PETTED A DEER. NICE GOING."
  61. 730 PRINT" IT'S NOT EVERY DAY YOU GET"
  62. 731 PRINT"  THAT OPPORTUNITY.":GOTO10300
  63. 750 PRINT"YOU JUST FED A DEER. I NEVER"
  64. 751 PRINT" KNEW THEY LIKED BOLOGNA....":GOTO10300
  65. 770 REM*MOUSE*
  66. 790 IF C$<>"1"THEN830
  67. 800 PRINT"YOU JUST SHOT A MOUSE. DON'T YOU"
  68. 810 PRINT" FEEL LIKE AN IDIOT ?":GOTO10300
  69. 830 IF C$<>"2"THEN870
  70. 840 PRINT"YOU JUST PETTED A MOUSE. DID YOU KNOW"
  71. 850 PRINT" THAT THEY CARRY 32 COMMUNICABLE"
  72. 851 PRINT"  DISEASES?":GOTO10300
  73. 870 PRINT"YOU JUST FED A MOUSE. BOY, ARE YOU"
  74. 871 PRINT" EVER A SOFT TOUCH....":GOTO10300
  75. 890 REM*CAT*
  76. 910 IF C$<>"1"THEN950
  77. 920 PRINT"YOU CREEP!!! SHOOTING CATS SHOULD"
  78. 921 PRINT" BE AGAINST THE LAW...."
  79. 930 PRINT"  GET OFF OUT OF THE PARK!":GOTO10700
  80. 950 IF C$<>"2"THEN990
  81. 960 PRINT"THE CAT YOU PETTED IS NOW YOURS."
  82. 970 PRINT" TAKE HIM HOME & GIVE HIM SOME MILK.":GOTO10700
  83. 990 PRINT"IT'S A GOOD THING YOU FED THAT CAT."
  84. 1000 PRINT" MICE ARE GETTING PRETTY SCARCE.":GOTO10300
  85. 1020 IFC$<>"1"THEN1030:REM*BEAR
  86. 1021 PRINT"THAT BEAR HAS BEEN BOTHERING THE"
  87. 1022 PRINT" TOURISTS, NICE SHOT, ENJOY YOUR WALK.":GOTO10300
  88. 1030 IFC$<>"2"THEN1040
  89. 1031 PRINT"YOU PETTED A BEAR??!?!?"
  90. 1032 PRINT" WHAT A TOUCH, KEEP WALKING...":GOTO10300
  91. 1040 PRINT"YOU THINK YOU CAN DO ANYTHING
  92. 1042 [153]" TO A BEAR...BYE BYE....":[137]10700
  93. 1100 [139]C$[179][177]"1"[167]1110:[143]*COW
  94. 1101 [153]"THE FARMER IS A LITTLE MAD ABOUT YOU"
  95. 1102 [153]" KILLING HIS COW, SO HE SHOT YOU, BYE...":[137]10700
  96. 1110 [139]C$[179][177]"2"[167]1120
  97. 1111 [153]"YOU PETTED A COW. BIG DEAL...."
  98. 1112 [153]" KEEP WALKING.....":[137]10300
  99. 1120 [153]"DON'T YOU KNOW BOLOGNA MAKES"
  100. 1121 [153]" MILK TASTE FUNNY. WALK ON...":[137]10300
  101. 1200 [139]C$[179][177]"1"[167]1210:[143]*FARMER
  102. 1201 [153]"SHOT THE FARMER EH? TO BAD....":[137]10700
  103. 1210 [139]C$[179][177]"2"[167]1220
  104. 1211 [153]"THE FARMER TELLS YOU TO GO PET"
  105. 1212 [153]" A ------ OH, WELL....":[137]10300
  106. 1220 [153]"YOU FEED THE FARMER, HE GAVE YOU"
  107. 1221 [153]" A HAM. ON YOU GO.....":[137]10300
  108. 1300 [139]C$[179][177]"1"[167]1310:[143]*MARTAIN
  109. 1301 [153]"YOU SHOT A MARTAIN, THATS OK"
  110. 1302 [153]" THE END OF THE WORLD WAS"
  111. 1303 [153]"  NEAR ANYWAY.....":[137]10300
  112. 1310 [139]C$[179][177]"2"[167]1320
  113. 1311 [153]"PET THE MARTAIN,PET THE MARTAIN"
  114. 1312 [153]" YOU'LL PET ANYTHING....":[137]10300
  115. 1320 [153]"FEEDING A MARTAIN BOLOGNA SANDWICHES"
  116. 1321 [153]" IS AN ACT OF WAR. WAY TO GO DUMMY!!!":[137]10700
  117. 1400 [139]C$[179][177]"1"[167]1410:[143]*DOG
  118. 1401 [153]"GOOD THING YOU SHOT THAT DOG, IT'S       ALREADY";
  119. 1402 [153]" BITTEN 3 OTHER PEOPLE AND        A MARTAIN":[137]10300
  120. 1410 [139]C$[179][177]"2"[167]1420
  121. 1411 [153]"YOU PET A RABID-DOG. NOT TO SMART"
  122. 1412 [153]" ";NA$;". BETTER LUCK NEXT TIME.":[137]10700
  123. 1420 [153]"FEED THAT MAD DOG EH? BAD CHOICE.":[137]10700
  124. 1421 GJ,S,SFS,
  125. 1500 [139]C$[179][177]"1"[167]1510:[143]*CHICKEN
  126. 1501 [153]"YOU'A GOT'A CHICKEN SHOOT'N LICENCES?"
  127. 1502 [153]" NO, THATS A SHAME.....":[137]10700
  128. 1510 [139]C$[179][177]"2"[167]1520
  129. 1511 [153]"PETTING A CHICKEN. SOFT IN THE"
  130. 1512 [153]" HEAD TOO, GET LOST....":[137]10700
  131. 1520 [153]"FEEDING CHICKENS NOW. I DON'T WANT"
  132. 1521 [153]" TO HEAR ABOUT IT.....":[137]10300
  133. 1600 [139]C$[179][177]"1"[167]1610:[143]*RABBIT
  134. 1601 [153]"RABBIT STEW TONIGHT....":[137]10300
  135. 1610 [139]C$[179][177]"2"[167]1620
  136. 1611 [153]"RABBIT IS ENRAGED, BIT YOUR ARM OFF"
  137. 1612 [153]" RABBITS COME MEAN 'ROUND HERE.":[137]10700
  138. 1620 [153]"RABBIT ATE THE BOLOGNA SANDWICHES AND"
  139. 1621 [153]" YOUR GUN. SO SORRY....":[137]10700
  140. 1700 [139]C$[179][177]"1"[167]1710:[143]*MR.ROGERS
  141. 1701 [153]"MR. ROGERS IS ONLY WOUNDED, DO TO"
  142. 1702 [153]" BAD SHOT ON YOUR PART.....":[137]10300
  143. 1710 [139]C$[179][177]"2"[167]1720
  144. 1711 [153]"MR. ROGERS LIKES YOU TOO."
  145. 1712 [153]" YOU BOTH GO TO THE MAGIC KINGDON...":[137]10700
  146. 1720 [153]"MR. ROGERS THANKS YOU, BUT OFFERS"
  147. 1721 [153]" SOMETHING BETTER, WALK FAST....":[137]10300
  148. 1800 [139]C$[179][177]"1"[167]1810:[143]*CAMEL
  149. 1801 [153]"YOU SHOT A NEIGHBORING ZOO"
  150. 1802 [153]" CAMEL, NASTY BREAK.....":[137]10700
  151. 1810 [139]C$[179][177]"2"[167]1820
  152. 1811 [153]"CAMELS,MARTAINS,MONKEYS...."
  153. 1812 [153]" PET,PET,PET.....":[137]10300
  154. 1820 [153]"THE CAMEL HATES BOLOGNA, SPITS"
  155. 1821 [153]" IN YOUR FACE, TISK!TISK!":[137]10700
  156. 1900 [139]C$[179][177]"1"[167]1910:[143]*HIPPIE
  157. 1901 [153]"HEADLINE: HIPPIE SHOT BY HUNTER"
  158. 1902 [153]" 3 DRUG DEALERS OUT OF BUSINESS....."
  159. 1903 [153]"  NEWS AT 6:00.....":[137]10300
  160. 1910 [139]C$[179][177]"2"[167]1920
  161. 1911 [153]"THE HIPPIE YOU PETTED GIVES YOU"
  162. 1912 [153]" A FLOWER, THATS NOT THE WAY"
  163. 1913 [153]"  THE POLICE SEE IT.....":[137]10700
  164. 1920 [153]"YOU FEED A HIPPIE! NO HOPE IN"
  165. 1921 [153]" SIGHT FOR YOU.....":[137]10300
  166. 2000 [139]C$[179][177]"1"[167]2010:[143]*DRUNK
  167. 2001 [153]"SHOT A DRUNK, DIDN'T HURT HIM THOUGH..."
  168. 2002 [153]" HE WAS ALREADY DEAD...DRUNK.":[137]10300
  169. 2010 [139]C$[179][177]"2"[167]2020
  170. 2011 [153]"PETTED A DRUNK. HE PETTED YOUR"
  171. 2012 [153]" WALLET FOR $50.00":[137]10700
  172. 2020 [153]"FEED A DRUNK,FEED A MOUSE"
  173. 2021 [153]" YOU'LL FEED ANYTHING......":[137]10300
  174. 2100 [139]C$[179][177]"1"[167]2110:[143]*FORD PINTO
  175. 2101 [153]"SHOT A FORD PINTO, GAS TANK ERUPTS"
  176. 2102 [153]" YOU ARE SUED BY FORD FOR"
  177. 2103 [153]"  INTRODUCING LEAD INTO FUEL TANK...":[137]10700
  178. 2110 [139]C$[179][177]"2"[167]2120
  179. 2111 [153]"THE FORD PINTO YOU PETTED RAN OVER"
  180. 2112 [153]" YOU. OH, WELL.....":[137]10700
  181. 2120 [153]"THE DRIVER OF THE PINTO YOU FEED"
  182. 2121 [153]" OFFERS YOU A RIDE, TOOK YOU"
  183. 2122 [153]"  AHEAD 3 MILES....":MI[178]MI[170]3:[137]10300
  184. 2200 [139]C$[179][177]"1"[167]2210:[143]*ALLIGATOR
  185. 2201 [153]"SHOOTING ALLIGATORS NOW EH?"
  186. 2202 [153]" NOW WHAT ARE YOU GOING TO"
  187. 2203 [153]"  DO, MAKE AIRCONDITIONED"
  188. 2204 [153]"   SHOES?.......":[137]10300
  189. 2210 [139]C$[179][177]"2"[167]2220
  190. 2211 [153]"THE ALLIGATOR YOU TRYED TO PET"
  191. 2212 [153]" WANTS TO WRESTLE, YOU LOST....":[137]10700
  192. 2220 [153]"I SEE THAT YOU KNOW ALLIGATORS LIKE"
  193. 2221 [153]" BOLOGNA SANDWICHES. GOOD FOR YOU!":[137]10300
  194. 2300 [139]C$[179][177]"1"[167]2310:[143]*ORGAN GRINDER & MONKEY
  195. 2301 [153]"THE ORGAN GRINDER IS INRAGED AT YOU"
  196. 2302 [153]" SHOOTING HIS MONKEY, YOU ARE"
  197. 2303 [153]"  NOW HOLDING THE LITTLE"
  198. 2304 [153]"   TIN CUP............":[137]10700
  199. 2310 [139]C$[179][177]"2"[167]2320
  200. 2311 [153]"YOU PET THE ORGAN GRINDER'S MONKEY"
  201. 2312 [153]" GIVE HIM A DIME AND"
  202. 2313 [153]"  CONTINUE YOUR WALK......":[137]10300
  203. 2320 [153]"YOU FEED THE ORGAN GRINDER AND HIS"
  204. 2321 [153]" MONKEY. NICE TOUCH.......":[137]10300
  205. 10300 [129] I[178]1[164]4000:[130]I:MI[178]MI[170]1
  206. 10310 [139] MI[177]19 [167] [137] 11000
  207. 10340 [153]"LOADYOU'RE CONTINUING YOUR WALK....."
  208. 10350 [153]" OH NO, NOT AGAIN! YEP, ANOTHER ANIMAL!"
  209. 10400 [153]"  DO YOU WANT TO......."
  210. 10500 [153]"   (1)SHOOT IT ?":[153]"    (2)PET IT ?":[153]"     (3)FEED IT ?"
  211. 10510 [153]
  212. 10600 [137]120
  213. 10700 [129]I[178]1[164]4000:[130]I:M[178]M[170]1
  214. 10710 [139] M[179]3[167]10340
  215. 10750 [153]"LOADTO BAD ";NA$;" THAT LAST CHOICE COST"
  216. 10760 [153]" YOU THE GAME AFTER ";MI;" MILES"
  217. 10780 [153]"  BETTER LUCK NEXT TIME....."
  218. 10850 [153]:[153]"TRY AGAIN (Y/N)"
  219. 10900 [161] TRY$:[139] TRY$[178]""[167] 10900
  220. 10950 [139] TRY$[178]"Y"[167] 10
  221. 10990 [153]"LOADBYE":[128]
  222. 11000 [153]"LOADCONGRATULATIONS ";NA$;" YOU MADE IT THE"
  223. 11001 [153]" FULL 20 MILES. YOU HAD BETTER THAN"
  224. 11002 [153]"  50-1 ODDS AGAINST YOU.":[153]:[137]10850
  225.